Programowanie w DELPHI i C++ by KPIWO

..:: Menu ::..

..:: Lekcja 6: Zapisywanie konfiguracji programu ::..

..::Info i Reklamy::..

Wykorzystanie rejestru i plików INI

Być może zastanawiasz się do czego służy rejestr i pliki INI. Rejestr Windows służy do zapisywania konfiguracji programów. WyobraĽ sobie, że chciałby¶ zapisać ustawienia Twojego programu. Przykładowo piszesz tekst w komponencie "Edit", zamykasz program, a następnie uruchamiasz go ponownie i na etykiecie widnieje taki sam tekst jak przy zamykaniu programu. Można to łatwo zrobić z wykorzystaniem rejestru lub plików INI.
Najpierw rejestr. Przede wszystkim, aby korzystać z rejestru musisz do listy modułów uses dodać słowo "Registry".
1. Umie¶ć na formularzu komponent "MaskEdit" ( paleta: Additional ). Komponent ten służy do ustawiania tzw. maski. Znaczy to, że Delphi 'dopilnuje', żeby¶ wpisał np. numer kodu. Za chwilę sam się o tym przekonasz. W Inspektorze Obiektów zmień nazwę komponentu na "Password". Teraz odnajdĽ pole "EditMask" - pojawi się okienko do wyboru maski. Po lewej stronie kliknij "ZipCode". Oznacza to, że hasło składać się będzie z pięciu cyfr. Kliknij OK - maska została ustawiona. Teraz odnajdĽ pole "PasswordChar". W tym polu należy wpisać znak, który będzie "przysłaniał" pisany przez Ciebie kod. W tej wła¶ciwo¶ci wpisz znak *. Teraz zamiast pisanych cyfr pojawiać się będzie wła¶nie ten znak.
2. Wygeneruj procedurę "OnDestroy" formy - uruchamiana ona będzie w chwili gdy użytkownik zamknie program. Wpisz w ni± taki tekst ( póĽniej obja¶nię ):
procedure TForm1.FormDestroy(Sender: TObject);
var
Reg : TRegistry; // zmienna wskazuje na rejestr
begin
Reg := TRegistry.Create;
try
Reg.OpenKey('Software\Delphi Kurs', True); // stworzenie klucza
Reg.WriteString('Haslo', Password.Text); // utworzenie wartosci
finally
Reg.Free; // zwolnij pamięć
end;
end;
Od tej pory przy zamykaniu programu do rejestru zostanie wpisane hasło z komponentu "Password". Już wyja¶niam o co wła¶ciwie chodzi. Na samym pocz±tku należało utworzyć zmienn± typu "Registry". PóĽniej j± stworzyłem. Następnie polecenie "Reg.OpenKey" otwiera klucz z rejestru. Warto¶ci domy¶lnie s± zapisywane do klucza głównego HKEY_CURRENT_USER. A więc w nawiasie tej funkcji jako pierwszy parametr podawana jest nazwa klucza, który ma zostać otwarty. Drugi parametr "mówi" czy klucz ma być utworzony jeżeli nie istnieje ( True ), czy też nie ( False ). Kolejna funkcja do "Reg.WriteString". Zapisuje ona do rejestru warto¶ć typu "String". Pierwszym parametrem tej funkcji jest nazwa klucza do zapisania, a drugim sama warto¶ć typu "String". W tej funkcji do rejestru zapisana została tre¶ć kontrolki "Edit". Na samym końcu następuje zwolnienie pamięci zajętej przez zmienn± "Reg". Zauważ, że użyłem tutaj wyj±tków. Powoduje to bezwzględne zwolnienie pamięci bez względu na to czy operacja się powiedzie, czy też nie. OK, uruchom teraz program i zamknij go - do rejestru zapisana została warto¶ć typu "String". Możesz to sprawdzić. Uruchom rejestr ( Start -> Uruchom -> Regedit ). Warto¶ć nasza została do rejestru zapisana pod kluczem: HKEY_CURRENT_USER\Software\Delphi Kurs. Możesz to sprawdzić.
Dobra. Jeżeli hasło znajduje się już w rejestrze to należy wygenerować procedurę "OnCreate" formy, która sprawdzać będzie hasło. Poniższa procedura ma sprawdzać czy klucz w rejestrze istnieje. Jeżeli nie to nic nie robi - jeżeli istnieje to wy¶wietl okno z pro¶b± o wpisanie hasła:
procedure TForm1.FormCreate(Sender: TObject);
var
Reg : TRegistry; // zmienna oznaczajaca rejestr
Istnieje : Boolean;
begin
Reg := TRegistry.Create; // stworz rejestr
try
{ Jezeli klucz istnieje to zmienna "Istnieje" przyjmuje wartosc True }
Istnieje := Reg.OpenKey('Software\Delphi Kurs', False);
if Not Istnieje then // Jezeli zmienna = False to znaczy, ze klucz nie istnieje...
Exit else //... wtedy nie rob nic. Jezeli klucz istnieje to wywolaj okno:
if InputBox('Podaj hasło!', 'Wpisz hasło:', '') <> Reg.ReadString('Haslo') then
begin // Jezeli haslo jest nieprawidlwe
MessageDlg('Błędne hasło. Program zostanie zakończony!', mtError, [mbOK], 0);
Application.Terminate; // zakoncz program
end;
finally
Reg.Free;
end;
end;
Ta procedura jest trochę dłuższa i trudniejsza. Sprawdza ona bowiem czy klucz istnieje. Zmienna "Istnieje" przechowuje informacje o tym, czy klucz istnieje, czy też nie. Następuje otwarcie klucza. Jeżeli klucz istnieje to zmienna "Istnieje" przybiera warto¶ć True. Jeżeli jest odwrotnie to False. Następnie następuje sprawdzenie jaka jest warto¶ć zmiennej "Istnieje". Jeżeli False ( if not Istnieje then... znaczy to samo co if Istnieje = False then.... ) to nic się nie dzieje. Polecenie "Exit" działa tak samo jak "Break" - przerywa działanie programu. Jeżeli klucz istnieje to wy¶wietlane jest okno z informacj± o podanie hasła. Umożliwia to funkcja "InputBox. Pierwszym jej parametrem jest tekst, który pojawi się na pasku okna, drugi to tekst etykiety, a ostatni to domy¶lne hasło, które pojawi się w oknie typu "Edit". Następuje tutaj porównanie wpisanego hasła z warto¶ci± wczytan± z rejestru ( Reg.ReadString ). Jeżeli te dwie warto¶ci s± różne to następuje wy¶wietlenie odpowiedniej informacji ( MessageDlg - mowa o tym była we wcze¶niejszych odcinkach ) i zakończenie programu. Normalnie do zakończenia działania programu służy polecenie "Close", ale działa ono tylko wtedy gdy widoczna jest forma. Jeżeli forma jest niewidoczna to należy stosować Application.Terminate, która kończy działanie programu.
Oczywi¶cie możesz także zapisywać warto¶ci typu "Integer" czy "Boolean", a nawet datę czy warto¶ci zmienno - przecinkowe. Oto przykłady:
// typ Integer
Reg.WriteInteger('WartoscInteger', 12);
// zapisana liczba 12

// odczyt typu Integer
Edit1.Text := IntToStr(
Reg.ReadString('WartoscInteger'));

// typ Boolean
Reg.WriteBool('WartoscBoolean', True);
// zapisana warto¶ć True

// odczytanie warto¶ci Boolean:
Checkbox1.Checked := Reg.ReadBool(
'WartoscBoolean');

// typ zmienno - przecinkowy
Reg.WriteCurrency('WartoscCurrency', 3.12);
// zapisanie 3.12

// odczyt warto¶ci Currency:
Edit2.Text := CurrToStr(
Reg.ReadCurrency('WartoscCurrency'));

// zapisz aktualn± datę i czas
Reg.WriteDateTime('DataIczas', Now);

// odczytaj datę i czas
Edit3.Text := DateTimeToStr(
Reg.ReadDateTime('DataIczas')); // odczytaj datę i czas

Oto dodatkowe funkcje zwi±zane z rejestrem:

CloseKey;	Zamyka dotychczasowo otwarty klucz.
DeleteKey;	Usuwa klucz - np: Reg.DeleteKey('Software\Programowanie');
DeleteValue;	Usuwa jedynie warto¶ć klucza: Reg.DeleteValue('WartoscBoolean');
KeyExists;	Funkcja zwraca warto¶ć True jeżeli podany w nawiasie klucz istnieje.
MoveKey;	Przenosi klucz z jednego miejsca na drugie: Reg.MoveKey('Software\Programowanie', 'Software\SFP', False); Ostatni parametr mówi czy stary klucz ma być usunięty.
RootKey;	Nazwa klucza głównego: Reg.RootKey := HKEY_CLASSES_ROOT;
ValueExists;	Sprawdza, czy warto¶ć klucza podana w nawiasie istnieje.
ReadString;	Odczytuje warto¶ć String.
WriteString;	Zapisuje warto¶ć String .
WriteInteger;	Zapisuje warto¶ć Integer.
ReadInteger;	Odczytuje warto¶ć Integer.
WriteBool;	Zapisuje warto¶ć typu Boolean
ReadBool;	Odczytuje warto¶ć typu Boolean .
WriteDateTime;	Zapisuje datę oraz czas.
ReadDateTime;	Odczytuje datę oraz czas.
WriteCurrency;	Zapisuje warto¶ć zmienno - przecinkow±.
ReadCurrency ;	Odczytuje warto¶ć zmienno - przecinkow±.
GetKeyNames ;	Zwraca w postaci "TStrings" wszystkie pod-klucze danego klucza.
GetValueNames;	Zwraca warto¶ci danego klucza: Reg.GetValueNames('Software\Programowanie');

Domy¶lnie w Delphi wszystkie klucze zapisywane s± do klucza głównego HKEY_CURRENT_USER. Jeżeli chcesz to zmienić to rób tak:
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('Moj Klucz', True);

Pliki INI

Operowanie na plikach INI jest bardzo podobne. Istniej± różnice, oczywi¶cie, ale s± one małe. Być może wiesz lub nie, że plik INI składa się z sekcji. S± różne sekcje, a w nich nazwy kluczy i ich warto¶ci. Żeby korzystać z plików INI musisz do listy modułów uses dodać słowo "INIFiles". W procedurze możesz napisać:
var
INI : TINIFile;
begin
INI := TINIFile.Create('C:\plikini.ini'); // stworz plik INI na dysku C
try
INI.WriteString('Sekcja01', 'Klucz', Edit1.Text);
finally
INI.Free;
end;
end;
Taka procedura spowoduje zapisanie odpowiednich warto¶ci do pliku INI, który zostanie stworzony na dysku C. Na pocz±tku stworzona została zmienna typu "TINIFile", której parametrem jest ¶cieżka gdzie plik ma być zapisany. PóĽniej następuje do pliku INI warto¶ci typu String. Pierwszym parametrem tej funkcji jest nazwa sekcji. Drugi parametr to nazwa klucza, a ostatnim to warto¶ć która ma być zapisana do pliku INI. Warto¶ć ta to tekst , który przechowywany jest w kontrolce Edit.
Jeżeli podczas tworzenia pliku INI nie podczas konkretnej ¶cieżki, a tylko nazwę pliku INI to ten plik zostanie stworzony w katalogu z Windowsem.
Teraz odczytanie warto¶ci:
var
INI : TINIFile;
begin
INI := TINIFile.Create('C:\Plikini.ini');
try
Edit1.Text := INI.ReadString('Sekcja01', 'Klucz', 'Domy¶lna warto¶ć');
finally
INI.Free;
end;
end;
Odczytywanie jest bardzo podobne. Zostanie stworzenie zmiennej INI, a następnie odczytanie warto¶ci. Do tekstu kontrolki Edit zostanie odczytany klucz z pliku INI. Pierwszym jej parametrem jest nazwa sekcji z pliku INI, kolejny to nazwa klucza, a ostatnia warto¶ć to domy¶lna warto¶ć. Ta domy¶lna warto¶ć zostanie w kontrolce wpisana jeżeli plik INI nie istnieje lub jeżeli nie istnieje taki klucz.
Podobnie ma się sprawa z warto¶ciami typu Integer lub Boolean:

WriteString, ReadString	Odczytuje lub zapisuje warto¶ć typu String.
WriteInteger, ReadInteger	Odczytuje lub zapisuje warto¶ć typu Integer.
WriteBool, ReadBool	Odczytuje lub zapisuje warto¶ć Boolowsk±. INI.WriteBool('Ogolne','Konfig',True) = True
WriteFloat, ReadFloat	Zapisuje lub odczytuje warto¶ć zmienn± przecinkow± typu Double
WriteDateTime, ReadDateTime	Odczytuje lub zapisuje aktualn± datę.
DeleteKey	Usuwa dan± warto¶ć. INI.DeleteKey('Ogolne','Imie');
ReadSections	Zwraca wszystkie sekcje danego pliku w postaci warto¶ci TStrings.
EraseSection	Usuwa dan± sekcje i pod klucze z ni± zwi±zane.
ValueExists	Sprawdza czy dana warto¶ć istnieje. INI.ValueExists('Ogolne','Imie');
SectionExists	Zwraca warto¶ć True jeżeli sekcja o podanej nazwie istnieje.

To tyle. Jeżeli chcesz uzyskać szczegóły to możesz doczytać w systemie pomocy Delphi.
Postanowiłem jeszcze omówić typ "TStrings", a dokładnie "ReadSections". Odczytuje ona z pliku INI wszystkie sekcie i zwraca wynik w postaci zmiennej "TStrings".
Oto przykład:
var
INI : TINIFile;
begin
INI := TINIFile.Create('C:\Plikini.ini');
try
INI.ReadSections(ListBox1.Items);
finally
INI.Free;
end;
end;
Umie¶ć na formie komponent "ListBox" i sprawdĽ działanie procedury. "Items" przy komponencie "ListBox" oznacza warto¶ci znajduj±ce się w tym komponencie.